home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / text / tex / amiweb2c.lha / AmiWeb2c-2.1 / texmf / amiweb2c / rexx / ttf2tfm.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-14  |  476 b   |  23 lines
  1. /*
  2.  * ARexx replacement (untested) of the Unix script of the same name.
  3.  *
  4.  * Copyright (C) 1998 by Andreas Scherer.
  5.  * This script is free software; the author gives unlimited
  6.  * permission to copy, distribute, and modify it.
  7.  */
  8.  
  9. Address COMMAND
  10.  
  11. Parse Arg FF EE .
  12.  
  13. F = Left( FF, LastPos( ".", FF ) - 1 )
  14. E = EE
  15.  
  16. /* Say */ "ttf2afm" FF EE ">" F".afm"
  17. /* Say */ "afm2tfm" F".afm -t" E "-p" E "-v" F".vpl r"F".tfm"
  18. /* Say */ "vptovf" F".vpl" F".vf" F".tfm"
  19.  
  20. Exit 0
  21.  
  22. /* EOF */
  23.